

package TagServer::Empresa;


#UML_MODELER_BEGIN_PERSONAL_VARS_Empresa

#UML_MODELER_END_PERSONAL_VARS_Empresa

#use TagServer::Model;
use TagServer::Pessoa;

use base qw( TagServer::Model );



=head1 EMPRESA



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=head3 new

   Return : 
	The class instance      

   Description : 
      The constructor

=cut

sub new
{
  warn "Construtor: sou Empresa\n";
  my $this = shift;
  my $class = ref($this) || $this; 
  my $self = $class->SUPER::new;
  my $self = {};
  bless ($self, $class); 
  return $self;
}

=head3 data

   Parameters :
      new_data : % : The hash of data to be saved in bd

   Return : 
      

   Description : 
      Sets the data hash

=cut


sub data()
{   
   my $self = shift;
   if (@_) { 
   	my $new_data = shift;
   	$self->{_data} = $new_data; 
   } else { my $new_data = $self->{_data}}
   warn "Metodo Empresa->data\n";
   my $ref = $self->{_data};
   my %data = %$ref;
   warn $ref;
   warn %data;
   foreach my $chave (keys %data){
	   my $valor = $data{$chave};
	   warn "$chave: $valor";
   }

   return $self->{_data};
}
 

=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
